home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / prg_casm / snpd9611.zip / METAPHON.C < prev    next >
C/C++ Source or Header  |  1996-11-24  |  845b  |  36 lines
  1. .I 0 3
  2. /* +++Date last modified: 09-Jun-1996 */
  3.  
  4. /*
  5. .D 1 1
  6. .I 40 1
  7. **                 If 0: Compute the Metaphone code for the first argument,
  8. .D 41 1
  9. .I 292 1
  10. #include "dirent.h"     /* metaphone() is portable so use Posix   */
  11. .D 293 1
  12. .I 347 2
  13.       char         curdir[FILENAME_MAX];
  14.       DIR         *dirp;
  15. .D 348 2
  16. .I 350 2
  17.       char        *ptr;
  18.       Boolean_T    retval;
  19. .D 351 1
  20. .I 370 2
  21.                         /* Don't look at file extension     */
  22.  
  23. .I 372 10
  24.                         else  ptr  = NULL;
  25.  
  26.                         retval = metaphone(ff_name(dstruct), meta, COMPARE);
  27.  
  28.                         /* Restore extension, if any        */
  29.  
  30.                         if (ptr != NULL)
  31.                               *ptr = '.';
  32.  
  33.                         if (Success_ == retval)
  34. .D 373 6
  35. .D 380 1
  36.